home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Programming / SecalDemo / Inc / libcalls / rexxsyslib.inc < prev    next >
Text File  |  1998-06-24  |  2KB  |  71 lines
  1. pattern CreateArgstring(_string,_length) is
  2.     push a6;
  3.     safe a0:=_string; d0.l:=_length;;
  4.     a6:=RexxSysBase; jsr [a6-126];
  5.     pop a6;
  6. endp;                                                            # CREATEARGSTRING
  7.  
  8. pattern DeleteArgstring(_argstring) is
  9.     push a6;
  10.     a0:=_argstring;
  11.     a6:=RexxSysBase; jsr [a6-132];
  12.     pop a6;
  13. endp;                                                            # DELETEARGSTRING
  14.  
  15. pattern LengthArgstring(_argstring) is
  16.     push a6;
  17.     a0:=_argstring;
  18.     a6:=RexxSysBase; jsr [a6-138];
  19.     pop a6;
  20. endp;                                                            # LENGTHARGSTRING
  21.  
  22. pattern CreateRexxMsg(_port,_extension,_host) is
  23.     push a6;
  24.     safe a0:=_port; a1:=_extension; d0.l:=_host;;
  25.     a6:=RexxSysBase; jsr [a6-144];
  26.     pop a6;
  27. endp;                                                            # CREATEREXXMSG
  28.  
  29. pattern DeleteRexxMsg(_packet) is
  30.     push a6;
  31.     a0:=_packet;
  32.     a6:=RexxSysBase; jsr [a6-150];
  33.     pop a6;
  34. endp;                                                            # DELETEREXXMSG
  35.  
  36. pattern ClearRexxMsg(_msgptr,_count) is
  37.     push a6;
  38.     safe a0:=_msgptr; d0.l:=_count;;
  39.     a6:=RexxSysBase; jsr [a6-156];
  40.     pop a6;
  41. endp;                                                            # CLEARREXXMSG
  42.  
  43. pattern FillRexxMsg(_msgptr,_count,_mask) is
  44.     push a6;
  45.     safe a0:=_msgptr; d0.l:=_count; d1.l:=_mask;;
  46.     a6:=RexxSysBase; jsr [a6-162];
  47.     pop a6;
  48. endp;                                                            # FILLREXXMSG
  49.  
  50. pattern IsRexxMsg(_msgptr) is
  51.     push a6;
  52.     a0:=_msgptr;
  53.     a6:=RexxSysBase; jsr [a6-168];
  54.     pop a6;
  55. endp;                                                            # ISREXXMSG
  56.  
  57. pattern LockRexxBase(_resource) is
  58.     push a6;
  59.     d0.l:=_resource;
  60.     a6:=RexxSysBase; jsr [a6-450];
  61.     pop a6;
  62. endp;                                                            # LOCKREXXBASE
  63.  
  64. pattern UnlockRexxBase(_resource) is
  65.     push a6;
  66.     d0.l:=_resource;
  67.     a6:=RexxSysBase; jsr [a6-456];
  68.     pop a6;
  69. endp;                                                            # UNLOCKREXXBASE
  70.  
  71.